Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/results.dxr/00043_Tool Box.ls

Text File | 2000-01-31 | 894 b | 39 lines

on PackWithReturns
  xMember = "results field"
  xText = EMPTY
  repeat with rc = 1 to 759
    xText = xText & RETURN
  end repeat
  member(xMember).text = xText
end

on tellloc startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  end repeat
end

on tellrect startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  end repeat
end

on Jat p1, p2, p3, p4, p5, p6
  put p1, p2, p3, p4, p5, p6
end